inherited f_Contratos: Tf_Contratos
  Left = 283
  Top = 48
  Width = 804
  Height = 609
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Top = 517
    Width = 788
    inherited btnGravar: TBitBtn
      Left = 342
    end
    inherited btnIncluir: TBitBtn
      Left = 342
    end
    inherited btnCancelar: TBitBtn
      Left = 447
    end
    inherited btnExcluir: TBitBtn
      Left = 447
    end
    inherited btnProcurar: TBitBtn
      Left = 678
      Top = 5
      Visible = False
      OnClick = btnProcurarClick
    end
    inherited btnSair: TBitBtn
      Left = 552
      Top = 6
    end
    object btn8: TBitBtn
      Left = 133
      Top = 7
      Width = 103
      Height = 40
      Caption = 'Imprimir'
      PopupMenu = PopupMenu1
      TabOrder = 6
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E00000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFDFDFDFDFDFDFDFDFD
        FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFCFCF1F1F1E9E9E9E7E7E7E7E7E7E7E7
        E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E9E9E9F1
        F1F1FCFCFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0F0F0BDBDBD8F8F8F8787878787878787
        878787878787878787878787878787878787878787878787878787878F8F8FBD
        BDBDF0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FAFAFAF9F9F9F9F9F9F9F9F9F7F7F7E2E2E2A9A9A9FCFCFCFCFCFCFCFCFCFCFC
        FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCA9
        A9A9E2E2E2F7F7F7F9F9F9F9F9F9F9F9F9FAFAFAFFFFFFFFFFFFFFFFFFF2F2F2
        DADADACCCCCCCACACACACACAC9C9C9B8B8B8939393F5F5F5C3C3C3C1C1C1C1C1
        C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C3C3C3F5F5F593
        9393B8B8B8C9C9C9CACACACACACACCCCCCDADADAF2F2F2FFFFFFFCFCFCDADADA
        A3A3A38686867A7A7A7070706F6F6F6A6A6A747474F6F6F6F6F6F6F6F6F6F6F6
        F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F674
        74746A6A6A6F6F6F7070707A7A7A868686A3A3A3DADADAFCFCFCF9F9F9CCCCCC
        8383835F5F5F7676768787878989898888888A8A8AEEEEEEBFBFBFBDBDBDBDBD
        BDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBFBFBFEEEEEE8A
        8A8A8888888989898787877676765F5F5F838383CCCCCCF9F9F9FAFAFACECECE
        7474748C8C8C9E9E9EA1A1A1A2A2A29393936F6F6FEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF6F
        6F6F939393A2A2A2A1A1A19E9E9E8C8C8C747474CECECEFAFAFAFDFDFDDFDFDF
        8888889F9F9FA8A8A8A9A9A9A9A9A9929292696969E8E8E8C8C8C8C7C7C7C7C7
        C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C8C8C8E8E8E869
        6969929292A9A9A9A9A9A9A8A8A89F9F9F888888DFDFDFFDFDFDFFFFFFF0F0F0
        999999A7A7A7AFAFAFB0B0B0B0B0B09797976F6F6FD6D6D6C7C7C7C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C7C7C7D6D6D66F
        6F6F979797B0B0B0B0B0B0AFAFAFA7A7A7999999F0F0F0FFFFFFFFFFFFF5F5F5
        A2A2A2AEAEAEB6B6B6B7B7B7B5B5B5A4A4A47474748484847979797676767676
        7676767676767676767676767676767676767676767676767679797984848474
        7474A4A4A4B3B3B3B2B2B2B4B4B4AEAEAEA2A2A2F5F5F5FFFFFFFFFFFFF4F4F4
        A6A6A6B5B5B5BDBDBDBEBEBEBEBEBEBBBBBBB3B3B3AAAAAAA7A7A7A6A6A6A6A6
        A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A6A7A7A7AAAAAAB3
        B3B3B5B5B5839D9F48ACB2829D9EB0B0B0A6A6A6F4F4F4FFFFFFFFFFFFF4F4F4
        AAAAAABCBCBCC4C4C4C5C5C5C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
        C6C6ADADAD0FBBDB00D7FE0EBBDBA4A4A4AAAAAAF4F4F4FFFFFFFFFFFFF5F5F5
        AEAEAEC3C3C3CBCBCBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        CCCCB2B2B20FA3DB00B5FE0FA2DBAAAAAAAEAEAEF5F5F5FFFFFFFFFFFFF4F4F4
        B2B2B2CACACAD1D1D1D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2
        D2D2CCCCCC92A3AE5192BB91A2ADC4C4C4B2B2B2F4F4F4FFFFFFFFFFFFF4F4F4
        B7B7B7D0D0D0D7D7D7D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8
        D8D8D7D7D7C5C5C5B1B1B1C5C5C5CFCFCFB7B7B7F4F4F4FFFFFFFFFFFFF4F4F4
        B9B9B9D5D5D5DDDDDDDDDDDDDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDEDE
        DEDECDCDCD69B17448D95C68B074C5C5C5B9B9B9F4F4F4FFFFFFFFFFFFF5F5F5
        BCBCBCDBDBDBE3E3E3E3E3E3E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4E4
        E4E4C1C1C12BCA5C2EE2662BCA5CB9B9B9BCBCBCF5F5F5FFFFFFFFFFFFF5F5F5
        BEBEBEE0E0E0E8E8E8E9E9E9EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEA
        EAEAD8D8D854A9790EBC5C54A878CFCFCFBEBEBEF5F5F5FFFFFFFFFFFFF5F5F5
        C1C1C1E6E6E6EEEEEEEFEFEFF0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0
        F0F0EEEEEEDDDDDDCACACADCDCDCE4E4E4C1C1C1F5F5F5FFFFFFFFFFFFF6F6F6
        C1C1C1E9E9E9F3F3F3F4F4F4F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F4F4F4F3F3F3E9E9E9C1C1C1F6F6F6FFFFFFFFFFFFFAFAFA
        C1C1C1E6E6E6F7F7F7F9F9F9F9F9F9FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAF9F9F9F9F9F9F7F7F7E6E6E6C1C1C1FAFAFAFFFFFFFFFFFFFEFEFE
        D9D9D9C7C7C7EAEAEAF3F3F3F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F3F3F3EAEAEAC7C7C7D9D9D9FEFEFEFFFFFFFFFFFFFFFFFF
        FBFBFBDCDCDCC4C4C4C7C7C7BDBDBDB5B5B5B1B1B1C8C8C8C8C8C8C8C8C8C8C8
        C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B1
        B1B1B5B5B5BDBDBDC7C7C7C4C4C4DCDCDCFBFBFBFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFEFEFEFBFBFBF7F7F7D2D2D2BFBFBFAFAFAFF0F0F0F0F0F0F0F0F0F0F0
        F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0AF
        AFAFBFBFBFD2D2D2F7F7F7FBFBFBFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFE3E3E3CACACABABABAF5F5F5F5F5F5F5F5F5F5F5
        F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5BA
        BABACACACAE3E3E3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFF9F9F9C9C9C9BFBFBFF2F2F2F2F2F2F2F2F2F2F2
        F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2BF
        BFBFC9C9C9F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5F5F5BCBCBCEFEFEFEFEFEFEFEFEFEFEF
        EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBC
        BCBCF5F5F5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3ECECECECECECECECECECEC
        ECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECECD3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3D3D3E8E8E8E8E8E8E8E8E8E8E8
        E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8D3
        D3D3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDCDCDCD6D6D6D5D5D5D5D5D5D5D5
        D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D5D6D6D6DC
        DCDCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF1F1F1F1F1F1F1F1F1F1F1
        F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FB
        FBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object btn5: TBitBtn
      Left = 238
      Top = 7
      Width = 103
      Height = 40
      Caption = 'Variedades'
      PopupMenu = PopupMenu1
      TabOrder = 7
      OnClick = btn5Click
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777770000000
        00000000000000077777777770FFFFFFFFFFFFFFFFFFFF077777777770FFFFFF
        FFFFFFFFFFFFFF077777777770FFFFFFFFFFFFFFFFFFFF077777777770F0000F
        F0F000F000F0FF077777777770F0999FFFFFFFFFFFFFFF077777777770F99F99
        F000F0F00F00FF0777777777709900099FFFFFFFFFFFFF077777777770FFFFFF
        999FFFFFFFFFFF077777777770F0000FF9990F000FFFFF077777777770F0999F
        FFFFFFFFFFFFFF077777777770F99F99FF0000F00F00FF077777777770990009
        9FFFFFFFFFFFFF077777777770FFFFFF999FFFFFFFFFFF077777777770F0000F
        F999FFFFFFFFFF077777777770F0FF0FFFFFFFFFFFFFFF077777777770F0FF0F
        F000F00F0F00FF077777777770F0000FFFFFFFFFFFFFFF077777777770FFFFFF
        FFFFFFFFFFFFFF077777777770F0000FF00F00F00F00FF077777777770F0999F
        FFFFFFFFFFFFFF077777777770F99F99FF000F00FF000F077777777770990009
        9FFFFFFFFFFFFF077777777770FFFFFF999FFFFFFFFFFF077777777770FFFFFF
        F999FFFFFFFFFF077777777770FFFFFFFFFFFFFFFFFFFF077777777770000000
        0000000000000007777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
    end
  end
  inherited MMJPanel2: TMMJPanel
    Width = 788
    Height = 52
    inherited Label1: TLabel
      Left = 330
      Top = 6
      Width = 157
      Caption = 'Contratos'
    end
    inherited Label2: TLabel
      Left = 333
      Top = 7
      Width = 157
      Caption = 'Contratos'
    end
  end
  object MMJPanel3: TMMJPanel [2]
    Left = 0
    Top = 52
    Width = 788
    Height = 465
    Align = alClient
    TabOrder = 2
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clActiveCaption
    Background.EndColor = clWhite
    Background.FillType = GradUpDown
    object lbl10: TLabel
      Left = 13
      Top = 6
      Width = 74
      Height = 16
      Caption = 'N'#186' Contrato :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl11: TLabel
      Left = 13
      Top = 111
      Width = 74
      Height = 16
      Caption = 'Comprador :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl12: TLabel
      Left = 380
      Top = 111
      Width = 75
      Height = 16
      Caption = 'Empreiteiro :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl1: TLabel
      Left = 13
      Top = 161
      Width = 107
      Height = 16
      Caption = 'Data Ini. Contrato :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl2: TLabel
      Left = 137
      Top = 161
      Width = 115
      Height = 16
      Caption = 'Data Ter. Contrato :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl3: TLabel
      Left = 261
      Top = 161
      Width = 53
      Height = 16
      Caption = 'Situa'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl4: TLabel
      Left = 411
      Top = 161
      Width = 89
      Height = 16
      Caption = 'Qtde Estimada'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl5: TLabel
      Left = 534
      Top = 161
      Width = 98
      Height = 16
      Caption = 'Qtde Contratada'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl6: TLabel
      Left = 656
      Top = 161
      Width = 86
      Height = 16
      Caption = 'Qtde Entregue'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl8: TLabel
      Left = 13
      Top = 223
      Width = 31
      Height = 16
      Caption = 'Obs.:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl7: TLabel
      Left = 12
      Top = 59
      Width = 82
      Height = 16
      Caption = 'Propriedade :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl9: TLabel
      Left = 123
      Top = 6
      Width = 76
      Height = 16
      Caption = 'Propriet'#225'rio :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl13: TLabel
      Left = 301
      Top = 111
      Width = 67
      Height = 16
      Caption = 'Comiss'#227'o :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl14: TLabel
      Left = 697
      Top = 111
      Width = 68
      Height = 16
      Caption = 'Valor Colh.:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl15: TLabel
      Left = 643
      Top = 59
      Width = 72
      Height = 16
      Caption = 'Valor Frete :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl16: TLabel
      Left = 626
      Top = 6
      Width = 38
      Height = 16
      Caption = 'Safra :'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lbl17: TLabel
      Left = 655
      Top = 202
      Width = 96
      Height = 16
      Caption = 'Aplica Impostos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object dbedtCTR_N_CONTRATO: TDBEdit
      Left = 13
      Top = 24
      Width = 108
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'CTR_N_CONTRATO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnKeyPress = FormKeyPress
    end
    object dbedtNOMEUSUARIO: TDBEdit
      Left = 12
      Top = 129
      Width = 250
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'COMPRADOR'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object btn1: TBitBtn
      Left = 263
      Top = 128
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 16
      OnClick = btn1Click
    end
    object btn2: TBitBtn
      Left = 658
      Top = 128
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 17
      OnClick = btn2Click
    end
    object dbedtNOMEFORNECEDOR: TDBEdit
      Left = 379
      Top = 129
      Width = 278
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'EMPREITEIRO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
    end
    object JvDBDateEdit1: TJvDBDateEdit
      Left = 13
      Top = 179
      Width = 121
      Height = 24
      DataField = 'CTR_DATAINICONTRATO'
      DataSource = DtSrc
      BorderStyle = bsNone
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnKeyPress = FormKeyPress
    end
    object JvDBDateEdit2: TJvDBDateEdit
      Left = 137
      Top = 179
      Width = 121
      Height = 24
      DataField = 'CTR_DATAFIMCONTRATO'
      DataSource = DtSrc
      BorderStyle = bsNone
      BevelKind = bkFlat
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnKeyPress = FormKeyPress
    end
    object dbedtCTR_SITUACAO: TDBEdit
      Left = 261
      Top = 179
      Width = 147
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'CTR_SITUACAO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 11
    end
    object dbedtCTR_QUANTIDADETOTAL: TDBEdit
      Left = 411
      Top = 179
      Width = 119
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'CTR_QUANTIDADETOTAL'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnKeyPress = FormKeyPress
    end
    object dbedtCTR_QUTDECONTRATADA: TDBEdit
      Left = 534
      Top = 179
      Width = 119
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'CTR_QUTDECONTRATADA'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnKeyPress = FormKeyPress
    end
    object dbedtCTR_QUTDEENTREGUE: TDBEdit
      Left = 656
      Top = 179
      Width = 118
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'CTR_QUTDEENTREGUE'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 14
    end
    object dbedtCTR_OBS: TDBEdit
      Left = 48
      Top = 217
      Width = 604
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'CTR_OBS'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnKeyPress = FormKeyPress
    end
    object JvDBGrid2: TJvDBGrid
      Left = 13
      Top = 247
      Width = 761
      Height = 207
      BorderStyle = bsNone
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 18
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      BevelKind = bkFlat
      AutoSizeColumns = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 17
      Columns = <
        item
          Expanded = False
          FieldName = 'CTR_N_CONTRATO'
          Title.Caption = 'N'#186' Contrato'
          Width = 91
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_DATAINICONTRATO'
          Title.Caption = 'Data Inicio'
          Width = 116
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_DATAFIMCONTRATO'
          Title.Caption = 'Data Fim'
          Width = 119
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_QUANTIDADETOTAL'
          Title.Caption = 'Qtde Estimada'
          Width = 119
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_QUTDECONTRATADA'
          Title.Caption = 'Qtde Contratada'
          Width = 123
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_QUTDEENTREGUE'
          Title.Caption = 'Qtde Entregue'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CTR_SALDO'
          Title.Caption = 'Saldo'
          Width = 59
          Visible = True
        end>
    end
    object btn3: TBitBtn
      Left = 602
      Top = 76
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 19
      OnClick = btn3Click
    end
    object dbedtNOMEUSUARIO1: TDBEdit
      Left = 11
      Top = 77
      Width = 590
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'PRO_DESCRICAO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object dbedtPRO_DESCRICAO: TDBEdit
      Left = 121
      Top = 24
      Width = 465
      Height = 24
      TabStop = False
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = 10930928
      DataField = 'PROPRIETARIO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object btn4: TBitBtn
      Left = 587
      Top = 24
      Width = 37
      Height = 25
      Caption = '...'
      Enabled = False
      TabOrder = 20
      OnClick = btn4Click
    end
    object JvDBCalcEdit1: TJvDBCalcEdit
      Left = 300
      Top = 129
      Width = 78
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      DecimalPlacesAlwaysShown = False
      OnKeyPress = FormKeyPress
      DataField = 'VALOR_COMICAO'
      DataSource = DtSrc
    end
    object JvDBCalcEdit2: TJvDBCalcEdit
      Left = 696
      Top = 129
      Width = 78
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      DecimalPlacesAlwaysShown = False
      OnKeyPress = FormKeyPress
      DataField = 'VALOR_COLHEITA'
      DataSource = DtSrc
    end
    object JvDBCalcEdit3: TJvDBCalcEdit
      Left = 642
      Top = 77
      Width = 89
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      DecimalPlacesAlwaysShown = False
      OnKeyPress = FormKeyPress
      DataField = 'VALOR_FRETE'
      DataSource = DtSrc
    end
    object btn6: TBitBtn
      Left = 734
      Top = 76
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 21
      OnClick = btn6Click
    end
    object dbedtCTR_N_CONTRATO1: TDBEdit
      Left = 624
      Top = 24
      Width = 108
      Height = 24
      BevelKind = bkFlat
      BorderStyle = bsNone
      DataField = 'SAFRA'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      OnKeyPress = FormKeyPress
    end
    object btn7: TBitBtn
      Left = 733
      Top = 23
      Width = 37
      Height = 25
      Caption = '...'
      TabOrder = 22
      OnClick = btn7Click
    end
    object dbcbbImpostos: TDBComboBox
      Left = 656
      Top = 217
      Width = 117
      Height = 24
      BevelKind = bkFlat
      DataField = 'APLICAIMPOSTO'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      Items.Strings = (
        'SIM'
        'NAO')
      ParentFont = False
      TabOrder = 23
      OnKeyPress = FormKeyPress
    end
  end
  inherited DtSrc: TDataSource
    DataSet = ds_contrato
    Left = 577
    Top = 348
  end
  object s_Contrato: TSQLDataSet
    CommandText = 
      'select  c.*,'#13#10'           fc.NOMEFORNECEDOR as COMPRADOR,'#13#10'      ' +
      '     f.NOMEFORNECEDOR as EMPREITEIRO,'#13#10'           fo.NOMEFORNECE' +
      'DOR as PROPRIETARIO,'#13#10'           p.PRO_DESCRICAO '#13#10'   from CONTR' +
      'ATOS c '#13#10'   inner join PROPRIEDADES p on p.PRO_ID = c.PRO_ID '#13#10' ' +
      '  left outer join FORNECEDOR fc on fc.CODFORNECEDOR =    c.CTR_C' +
      'OMPRADOR'#13#10'   left outer join FORNECEDOR f on f.CODFORNECEDOR =  ' +
      '  c.CTR_TURMEIRO'#13#10'   left outer join FORNECEDOR fo on fo.CODFORN' +
      'ECEDOR = c.FOR_ID '#13#10' where c.FOR_ID = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 480
    Top = 348
    object s_ContratoCTR_ID: TIntegerField
      FieldName = 'CTR_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object s_ContratoFOR_ID: TIntegerField
      FieldName = 'FOR_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object s_ContratoPRO_ID: TIntegerField
      FieldName = 'PRO_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object s_ContratoCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 15
    end
    object s_ContratoCTR_DATAINICONTRATO: TDateField
      FieldName = 'CTR_DATAINICONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_DATAFIMCONTRATO: TDateField
      FieldName = 'CTR_DATAFIMCONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_OBS: TStringField
      FieldName = 'CTR_OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object s_ContratoCTR_QUTDENF: TIntegerField
      FieldName = 'CTR_QUTDENF'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_QUANTIDADETOTAL: TFloatField
      FieldName = 'CTR_QUANTIDADETOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_QUTDECONTRATADA: TFloatField
      FieldName = 'CTR_QUTDECONTRATADA'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_QUTDEENTREGUE: TFloatField
      FieldName = 'CTR_QUTDEENTREGUE'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_TURMEIRO: TIntegerField
      FieldName = 'CTR_TURMEIRO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_COMPRADOR: TIntegerField
      FieldName = 'CTR_COMPRADOR'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_SALDO: TFloatField
      FieldName = 'CTR_SALDO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCTR_SITUACAO: TStringField
      FieldName = 'CTR_SITUACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object s_ContratoEMPREITEIRO: TStringField
      FieldName = 'EMPREITEIRO'
      ProviderFlags = []
      Size = 50
    end
    object s_ContratoPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object s_ContratoPROPRIETARIO: TStringField
      FieldName = 'PROPRIETARIO'
      ProviderFlags = []
      Size = 50
    end
    object s_ContratoVALOR_FRETE: TFloatField
      FieldName = 'VALOR_FRETE'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoVALOR_COLHEITA: TFloatField
      FieldName = 'VALOR_COLHEITA'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoVALOR_COMICAO: TFloatField
      FieldName = 'VALOR_COMICAO'
      ProviderFlags = [pfInUpdate]
    end
    object s_ContratoCOMPRADOR: TStringField
      FieldName = 'COMPRADOR'
      ProviderFlags = []
      Size = 50
    end
    object s_ContratoSAFRA: TStringField
      FieldName = 'SAFRA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object s_ContratoAPLICAIMPOSTO: TStringField
      FieldName = 'APLICAIMPOSTO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
  end
  object p_Contrato: TDataSetProvider
    DataSet = s_Contrato
    UpdateMode = upWhereKeyOnly
    Left = 512
    Top = 348
  end
  object ds_contrato: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'p_Contrato'
    Left = 544
    Top = 348
    object ds_contratoCTR_ID: TIntegerField
      FieldName = 'CTR_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ds_contratoFOR_ID: TIntegerField
      FieldName = 'FOR_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object ds_contratoPRO_ID: TIntegerField
      FieldName = 'PRO_ID'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object ds_contratoCTR_N_CONTRATO: TStringField
      FieldName = 'CTR_N_CONTRATO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 15
    end
    object ds_contratoCTR_DATAINICONTRATO: TDateField
      FieldName = 'CTR_DATAINICONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_DATAFIMCONTRATO: TDateField
      FieldName = 'CTR_DATAFIMCONTRATO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_OBS: TStringField
      FieldName = 'CTR_OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object ds_contratoCTR_QUTDENF: TIntegerField
      FieldName = 'CTR_QUTDENF'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_QUANTIDADETOTAL: TFloatField
      FieldName = 'CTR_QUANTIDADETOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_QUTDECONTRATADA: TFloatField
      FieldName = 'CTR_QUTDECONTRATADA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_QUTDEENTREGUE: TFloatField
      FieldName = 'CTR_QUTDEENTREGUE'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_TURMEIRO: TIntegerField
      FieldName = 'CTR_TURMEIRO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_COMPRADOR: TIntegerField
      FieldName = 'CTR_COMPRADOR'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_SALDO: TFloatField
      FieldName = 'CTR_SALDO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCTR_SITUACAO: TStringField
      FieldName = 'CTR_SITUACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ds_contratoEMPREITEIRO: TStringField
      FieldName = 'EMPREITEIRO'
      ProviderFlags = []
      Size = 50
    end
    object ds_contratoPRO_DESCRICAO: TStringField
      FieldName = 'PRO_DESCRICAO'
      ProviderFlags = []
      Size = 100
    end
    object ds_contratoPROPRIETARIO: TStringField
      FieldName = 'PROPRIETARIO'
      ProviderFlags = []
      Size = 50
    end
    object ds_contratoVALOR_FRETE: TFloatField
      FieldName = 'VALOR_FRETE'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoVALOR_COLHEITA: TFloatField
      FieldName = 'VALOR_COLHEITA'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoVALOR_COMICAO: TFloatField
      FieldName = 'VALOR_COMICAO'
      ProviderFlags = [pfInUpdate]
    end
    object ds_contratoCOMPRADOR: TStringField
      FieldName = 'COMPRADOR'
      ProviderFlags = []
      Size = 50
    end
    object ds_contratoSAFRA: TStringField
      FieldName = 'SAFRA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ds_contratoAPLICAIMPOSTO: TStringField
      FieldName = 'APLICAIMPOSTO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
  end
  object ds2: TDataSource
    OnStateChange = DtSrcStateChange
    Left = 577
    Top = 388
  end
  object ds3: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 544
    Top = 388
  end
  object DataSetProvider2: TDataSetProvider
    Left = 512
    Top = 388
  end
  object SQLDataSet2: TSQLDataSet
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 480
    Top = 388
  end
  object busca_propriedade: TSQLClientDataSet
    CommandText = 
      'select  PRO_ID, PRO_DESCRICAO, PRO_QUANTIDADETOTAL '#13#10'   from PRO' +
      'PRIEDADES '#13#10'where PRO_DESCRICAO LIKE :desc'#13#10'   and FOR_ID = :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'desc'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 640
    Top = 348
    object busca_propriedadePRO_ID: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'PRO_ID'
      Required = True
    end
    object busca_propriedadePRO_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'PRO_DESCRICAO'
      Size = 100
    end
    object busca_propriedadePRO_QUANTIDADETOTAL: TFloatField
      FieldName = 'PRO_QUANTIDADETOTAL'
    end
  end
  object buscaSafra: TSQLClientDataSet
    CommandText = 'select DESCSAFRA from SAFRA '#13#10'where DESCSAFRA  LIKE :sf'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'sf'
        ParamType = ptInput
      end>
    UpdateMode = upWhereKeyOnly
    DBConnection = DM.sqlsisAdimin
    Left = 648
    Top = 428
    object buscaSafraDESCSAFRA: TStringField
      DisplayLabel = 'Descri'#231#227'o da Safra'
      FieldName = 'DESCSAFRA'
      Required = True
      Size = 60
    end
  end
  object buscaFrete: TSQLClientDataSet
    CommandText = 
      'select FAIXA, VALOR_FAIXA from FAIXA_FRETE '#13#10'where FAIXA LIKE :f' +
      'c'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'fc'
        ParamType = ptInput
      end>
    UpdateMode = upWhereKeyOnly
    DBConnection = DM.sqlsisAdimin
    Left = 608
    Top = 428
    object buscaFreteFAIXA: TStringField
      FieldName = 'FAIXA'
      Required = True
      Size = 60
    end
    object buscaFreteVALOR_FAIXA: TFloatField
      DisplayLabel = 'Valor R$'
      FieldName = 'VALOR_FAIXA'
    end
  end
  object scds_forn_proc: TSQLClientDataSet
    CommandText = 
      'select f.CODFORNECEDOR, f.NOMEFORNECEDOR, f.RAZAOSOCIAL, ef.DDD,' +
      ' ef.TELEFONE,  f.PRAZOPAGAMENTO, f.CFOP '#13#10'from FORNECEDOR f'#13#10'lef' +
      't outer join ENDERECOFORNECEDOR EF on EF.CODFORNECEDOR = F.CODFO' +
      'RNECEDOR'#13#10'where (f.NOMEFORNECEDOR like :pFORNECEDOR) '#13#10'and  (f.r' +
      'egiao = :pRegiao) '#13#10'and  (f.segmento = :pSegmento)'#13#10'and ( (ef.TI' +
      'POEND = 0) or (ef.TIPOEND is null) )'#13#10'order by f.NOMEFORNECEDOR'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pFORNECEDOR'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pRegiao'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pSegmento'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 217
    Top = 421
    object scds_forn_procCODFORNECEDOR: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object scds_forn_procNOMEFORNECEDOR: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object scds_forn_procRAZAOSOCIAL: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object scds_forn_procDDD: TSmallintField
      FieldName = 'DDD'
    end
    object scds_forn_procTELEFONE: TStringField
      DisplayLabel = 'Telefone'
      FieldName = 'TELEFONE'
      Size = 9
    end
    object scds_forn_procPRAZOPAGAMENTO: TSmallintField
      DisplayLabel = 'Prazo'
      FieldName = 'PRAZOPAGAMENTO'
    end
    object scds_forn_procCFOP: TStringField
      FieldName = 'CFOP'
      Size = 30
    end
  end
end
